       01 L-LINE.
         03 L-TIMESTAMP.
           05 FILLER                    PIC X VALUE "[".
           05 TS-CURRENT-DATE.
             07 TS-CURRENT-DAY          PIC 9(2).
             07 TS-CURRENT-MONTH        PIC 9(2).
             07 TS-CURRENT-YEAR         PIC 9(4).
           05 FILLER                    PIC X VALUE "-".
           05 TS-CURRENT-TIME.
             07 TS-CURRENT-HOUR         PIC 9(2).
             07 TS-CURRENT-MIN          PIC 9(2).
             07 TS-CURRENT-SEC          PIC 9(4).       
           05 FILLER                    PIC X VALUE "]".
         03 FILLER                      PIC X VALUE SPACES.
         03 L-MESSAGE                  PIC X(200).  